home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / extensions / procs / _fade3.amos / _fade3.amosSourceCode
Encoding:
AMOS Source Code  |  2008-12-11  |  458 b   |  18 lines
  1. Load Iff "dh0:__sourcecodes/.jdsources/bc.pic",1
  2. Wait 5
  3. Screen Open 0,Screen Width,Screen Height,Screen Colour,Screen Mode
  4. Wait 5
  5. Get Palette 1 : Flash Off : Curs Off 
  6. S=1 : D=0 : TX=0 : TY=0 : BX=Screen Width : BY=Screen Height : W=10 : H=10
  7. F=3
  8. BLOCKIN[S,D,TX,TY,BX,BY,W,H,F]
  9.  
  10. Procedure BLOCKIN[S,D,TX,TY,BX,BY,W,H,F]
  11. H1=BY/H : W1=BX/W
  12. LOP:
  13. Screen Copy S,0,BY-H,W,BY To D,0,BY-H
  14. H=H+H1 : W=W+W1
  15. If H>BY+H1 and W>BX+W1 Then Pop Proc
  16. Wait 5
  17. Goto LOP
  18. End Proc